home *** CD-ROM | disk | FTP | other *** search
/ PCMania 73 / PCMania CD73_1.iso / pcmania / render73 / Taller / castli17 / PRUEBAS.POV < prev    next >
Text File  |  1998-09-14  |  8KB  |  241 lines
  1. #include "castle20.inc"
  2. #include "colors.inc"
  3. #include "Golds.inc"
  4. #include "metals.inc"
  5. #include "skies.inc"
  6. //#include "woods.inc"
  7. #include "textures.inc"
  8.  
  9.  
  10. camera {    //prueba 1 de camara para portada
  11.    location <100, 100,-200>
  12.    direction <0.0, 0.0, 1>
  13.    up  <0.0, 1.0, 0.0>
  14.    right <1.33,0.0, 0.0>                    
  15.    look_at <100,100,0> 
  16. //   look_at <0,0,0> 
  17. } 
  18.  
  19.  
  20.  
  21. //  light_source {<-1500,3550,-3540> color White}
  22.   light_source {<1600,550,-3540> color White}
  23.  
  24. #declare agua=texture {
  25.     pigment{color rgb <0.258, 0.258, 0.435>}
  26.     normal {
  27.         ripples 0.35
  28.         frequency 100.0
  29.         turbulence .17
  30.         }
  31.     finish {
  32.         ambient 0.1 diffuse 0.8 phong 1
  33.         reflection 0.44
  34. //      refraction 1
  35. //      ior 1.5 
  36.         }
  37.     scale <700, 700, 700>
  38. }
  39.  
  40.  
  41.  
  42.  
  43. //plane{y,0 texture{agua}}
  44.  
  45.  
  46. sky_sphere { S_Cloud2
  47. }
  48.  
  49.  
  50.  
  51. /*
  52. //           CASTILLO
  53. //torre redonda de 10 ancho*25 de alto con ventanas usada en torbala
  54. #declare torred25=union{ 
  55.     object{secb10_10r}
  56.     object{secm10_10r translate<0,100,0>}
  57.     object{secf10_5r translate<0,200,0>}
  58. }
  59. //torre cuadrada de 15 de alto usada en torbala
  60. #declare torcua15=union{
  61.     object{secb10_10c}
  62.     object{secf10_5c translate<0,100,0>}
  63. }    
  64. //torre base lateral de la estructura principal
  65. #declare torbala=union{
  66.     object{secb20_10r rotate y*90}
  67.     object{secm20_10r translate<0,100,0>}      //ventanas
  68.     object{secm20_10r01 translate<0,200,0> rotate y*45}    //con torcol1
  69.     object{secf20_5r05 translate<0,300,0> rotate y*45}     //techo con 4 puertas
  70. //se añaden 4 torres torred25 en las esquinas
  71.     object{torred25 translate<-100,0,0>}
  72.     object{torred25 translate<-100,0,0> rotate y*90}
  73.     object{torred25 translate<-100,0,0> rotate y*-90}
  74.     object{torred25 translate<-100,0,0> rotate y*180}
  75. // se añaden 4 torres cuadradas intercaladas entre las torres redondas
  76.     object{torcua15 translate<-110,0,0> rotate y*45}
  77.     object{torcua15 translate<-110,0,0> rotate y*-45}
  78.     object{torcua15 translate<-110,0,0> rotate y*(180+45)}
  79.     object{torcua15 translate<-110,0,0> rotate y*-(180+45)}
  80.     }
  81.  
  82. //torre redonda de 10 ancho*30 de alto con torres colgantes para intercalar
  83. //entre torbalas
  84. #declare torred30=union{ 
  85.     object{secb10_10r}
  86.     object{secm10_5r translate<0,100,0>}
  87.     object{secm10_10r02 translate<0,150,0> rotate y*45}
  88.     object{secf10_5r05 translate<0,250,0> rotate y*45}
  89. }
  90.  
  91. //Ahora las definiciones para el grupo central de torres del castillo
  92. //y laterales superiores
  93. #declare torcua25=union{ //torres centinelas de base superior
  94.     object{secb10_10c}
  95.     object{secm10_10c01 translate <0,100,0>}
  96.     object{secf10_5c05 translate <0,200,0>}
  97.     object{torpan5_3 rotate y*180 translate <0,250,0>}
  98. }
  99. #declare torcua35=union{ //torres laterales de la estruc. superior princip.
  100.     object{secb10_10c}
  101.     object{secm10_10c translate<0,100,0>}
  102.     object{secm10_10c04 translate <0,200,0>}
  103.     object{secf10_5c05 translate <0,300,0>}
  104.     object{torpan5_3 rotate y*180 translate <0,350,0>}
  105. }
  106. #declare torred15=union{
  107.     object{secb10_10r}
  108.     object{secf10_5r translate<0,100,0>}
  109. }
  110.  
  111. #declare grupsup=union{
  112.     object{secb20_10r }
  113.     object{secm20_10r translate<0,100,0>}
  114.     object{secm20_10r translate<0,200,0>}
  115.     object{secm20_10r translate<0,300,0>}
  116.     object{secf20_5r translate<0,400,0>}
  117. //las 4 torres laterales del grupo superior
  118.     object{torred15 translate<-85,0,-85>}
  119.     object{torred15 translate<85,0,-85>}
  120.     object{torred15 translate<85,0,-85>}
  121.     object{torred15 translate<-85,0,85>}
  122. //las 4 torres intercaladas de 20 metros de altura
  123.     object{torcua35 translate<0,0,-120>}
  124.     object{torcua35 translate<0,0,-120> rotate y*90}
  125.     object{torcua35 translate<0,0,-120> rotate y*-90}
  126.     object{torcua35 translate<0,0,-120> rotate y*180}
  127. } 
  128.  
  129. #declare ristra50=union{
  130.     #declare cal=0
  131. /* el valor inicial de xa se debe a que la aspillera esta centrada en 0 y va
  132.     de  -12.50  a  12.50. Asi, si deseamos crear una ristra desde -250 a 250
  133.     xa comenzara a 250-12.50=237.50. */
  134.     #declare xa=-237.5
  135.     #while(cal!=20)
  136.      object{ aspilleraG translate<xa,0,0>}
  137.      #declare cal=cal+1
  138.      #declare xa=xa+25
  139.     #end
  140.     }
  141.  
  142. declare body50_35=union{   //cuerpo cuadrado de 50 ancho*35 alto
  143. union{
  144.     box{<-249.8,0,-250>,<249.8,400,-249> texture{texcastle}}
  145.     box{<-249.8,0,-250>,<249.8,400,-249> texture{texcastle} rotate y*90}
  146.     box{<-249.8,0,-250>,<249.8,400,-249> texture{texcastle} rotate y*-90}
  147.     box{<-249.8,0,-250>,<249.8,400,-249> texture{texcastle} rotate y*180}
  148. //techo
  149.     box{<-249.8,399,-249.8>,<249.8,400,249.8> texture{texcastle2 rotate x*90}} 
  150.     object{ristra50 translate<0,400,-250>}
  151.     object{ristra50 translate<0,400,-250> rotate y*90}
  152.     object{ristra50 translate<0,400,-250> rotate y*-90}
  153.     object{ristra50 translate<0,400,-250> rotate y*180}
  154. //4 torres laterales principales en las esquinas del castillo
  155.     object{torbala translate<-250,0,-250>}
  156.     object{torbala translate<250,0,-250>}
  157.     object{torbala translate<-250,0,-250> rotate y*180}
  158. //    object{torbala translate<250,0,-250> rotate y*180}
  159. //4 torres torred30 usadas entre las torres laterales de la base
  160.     object{torred30 translate<0,0,-260>}
  161. //    object{torred30 translate<0,0,-260> rotate y*90}
  162. //    object{torred30 translate<0,0,-260> rotate y*-90}
  163.     object{torred30 translate<0,0,-260> rotate y*180}
  164. //sigue el grupo de torres superiores
  165.     object{grupsup translate<0,400,0>}
  166. //y las 4 torres laterales superiores
  167.     object{torcua25 translate<-240,350,-240>}
  168.     object{torcua25 translate<-240,350,-240> rotate y*180}
  169.     object{torpan10_2 translate<240,350,-240>}
  170. //    object{torcua25 translate<240,350,-240>}
  171. //    object{torcua25 translate<240,350,-240> rotate y*180}
  172.  
  173.     object{colgante1 translate<-125,260,-250>}
  174.     object{colgante1 translate<125,260,-250>}
  175.     object{lateral1_2 translate<0,400,-200>}
  176. //  object{torpan5_1 translate<0,400,-230> rotate y*90}
  177. // incluimos una pequeña casita-torre en la cima
  178.     object{secbpan51 rotate y*180 translate<0,300,-260>}
  179.     object{tejpir5 scale <1,.70,1> translate<0,350,-260>}
  180.     rotate y*45
  181. //    translate<-3000,0,3000>
  182. }
  183.  
  184.  
  185.  
  186. //muralla de separación del castillo con el mar
  187. #declare ristra650=union{
  188.     #declare cal=0
  189.  el valor inicial de xa se debe a que la aspillera esta centrada en 0 y va
  190.     de  -12.50  a  12.50. Asi, si deseamos crear una ristra desde -250 a 250
  191.     xa comenzara a 250-12.50=237.50. 
  192.     #declare xa=-637.5
  193.     #while(cal!=200)
  194.      object{ aspilleraG translate<xa,0,0>}
  195.      #declare cal=cal+1
  196.      #declare xa=xa+25
  197.     #end
  198.     }
  199. union{
  200.     box{<-649.8,0,-450>,<649.8,180,-420> 
  201.         texture{texcastle rotate x*45}
  202. //        pigment{Orange}
  203.         rotate y*90}
  204.     object{ristra650 translate<0,180,-450> rotate y*90}
  205.     rotate y*45
  206. } */
  207.  
  208.  
  209.  
  210.  
  211.  
  212. #include "town.inc"
  213. object{panel1 translate<0,125,0>}
  214. object{panel2 translate<50,125,0>}
  215. object{panel3 translate<100,125,0>}
  216. object{panel4 translate<150,125,0>}
  217. object{panel5 translate<200,125,0>}
  218.  
  219. object{panel6 translate<0,75,0>}
  220. object{panel7 translate<50,75,0>}
  221. object{panel8 translate<100,75,0>}
  222. object{panel9 translate<150,75,0>}
  223. object{panel10 translate<200,75,0>}
  224.  
  225. object{panel11 translate<0,25,0>}
  226. object{panel12 translate<50,25,0>}
  227. object{panel13 translate<100,25,0>}
  228. object{panel14 translate<150,25,0>}
  229.  
  230.  
  231.  
  232. /*
  233. //suelo
  234. //box{<-400,-1,-700>,<400,1,700> pigment{Red} rotate y*45}
  235. box{<-500,-1,-700>,<500,0.1,700> 
  236. //    pigment{image_map{tga "suelo1.tga"} rotate x*90 scale<16,1,16>}
  237.     pigment{Red}
  238.     rotate y*45}
  239.  
  240.   */
  241.